home *** CD-ROM | disk | FTP | other *** search
/ Kyoko 8203 / Kyoko 8203.iso / pc / link.dxr / 00021_É{ÉäÉÖÅ[ÉÄÉ{É^Éì.ls < prev    next >
Encoding:
Text File  |  2003-03-03  |  532 b   |  34 lines
  1. global cdvoume
  2.  
  3. on mouseDown me
  4.   mynumber = me.spriteNum
  5.   case mynumber of
  6.     13:
  7.       cdvoume = cdvoume + 1
  8.     14:
  9.       cdvoume = cdvoume - 1
  10.   end case
  11.   if cdvoume > 13 then
  12.     cdvoume = 13
  13.   else
  14.     if cdvoume < 0 then
  15.       cdvoume = 0
  16.     end if
  17.   end if
  18.   set the volume of sound 1 to cdvoume * 19
  19.   repeat with i = 15 to 27
  20.     sprite(i).visible = 1
  21.   end repeat
  22.   repeat with i = 15 + cdvoume to 27
  23.     sprite(i).visible = 0
  24.   end repeat
  25. end
  26.  
  27. on mouseEnter me
  28.   cursor([1, 2])
  29. end
  30.  
  31. on mouseLeave me
  32.   cursor(0)
  33. end
  34.